home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / CHNRT192.ZIP / SCRIPT.TXT < prev    next >
Encoding:
Text File  |  1996-04-13  |  1.5 KB  |  61 lines
  1. !                            SAMPLE SCRIPT FOR OUTDOOR
  2. ! The following is a script which can be used with Virtual BBS version 7.0
  3. ! to call the game, then upon exiting, check for the OUTDOOR file, and if
  4. ! it exists, read it and award the extra time or credits to the player. This
  5. ! is for VBBS, however, the format would be similar for other BBS scripting
  6. ! languages.
  7.  
  8. ACTION "Chain Reaction"
  9. $outdoor = "c:\bbs\doors\chreact\outdoor.1"
  10.  
  11. ! This reads the extra variable number 7 to see if the game has been played
  12. ! If game already played, it jumps to check the outdoor file
  13. testval $extra7 = 1 played
  14.  
  15. ! This set the extra variable number 7 to 1. Means game has been played.
  16. SETEXTRA 7 1
  17.  
  18. testval $port = 0 local
  19. testval $port = 1 node1
  20. testval $port = 2 node2
  21.  
  22. # local
  23. RETURNSCRIPT chain
  24. door "c:\bbs\doors\chreact\chreact c:\bbs\temp\n0\door.sys"
  25.  
  26. # node1
  27. RETURNSCRIPT chain
  28. door "c:\bbs\doors\chreact\chreact c:\bbs\temp\n1\door.sys/5"
  29.  
  30. # node2
  31. RETURNSCRIPT chain
  32. door "c:\bbs\doors\chreact\chreact c:\bbs\temp\n2\door.sys"
  33.  
  34.  
  35. # played
  36. ! Resets the extra variable 7 to 0, or finished.
  37. SETEXTRA 7 0
  38. checkfile $exist $outdoor
  39. testval $exist <> 0 filethere 
  40. go end
  41.  
  42. # filethere
  43. open $outdoor input
  44. read $who
  45. read $awardtm
  46. read $awardcr
  47. read $addtm
  48. read $addcred
  49. close
  50. $tottime = $awardtm + $addtm
  51. $totcred = $awardcr + $addcred
  52. ifval $tottime > 0 then
  53.         ADDTIME $tottime
  54. endif
  55. ifval $totcred > 0 then
  56.         ADDCREDITS $totcred
  57. endif
  58. kill $outdoor
  59. # end
  60. exit rdoor
  61.